home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / lightwave / plugins / gonzalomacros / macros / !add-macrolist.lwm next >
Text File  |  1996-04-18  |  771b  |  3 lines
  1. /* CMD: ² Gonzalo Macros OFF
  2. */
  3. call addlib "LWModelerARexx.port",0;fullfile="GonzaloList:GonzaloMacroList";if (open(fil,fullfile,'r')) then;do;ln=readln(fil);if left(ln,4) ~="MDML" then Bummer("!Not a MacroList!");ln=readln(fil);do while(~eof(fil));name=readln(fil);if left(name,2) ~="# " then Bummer("!New MacroList format!");name=right(name,length(name)-2);path=readln(fil);if left(path,8)="* $REXX " then;path=right(path,length(path)-8);else if left(path,2)="* " then;path=right(path,length(path)-2);else Bummer("!New MacroList format!");added=rxcmd_add(name,path);ln=readln(fil);end;call close fil;call rxcmd_remove("² Gonzalo Macros OFF");end;call remlib "LWModelerARexx.port";exit;Bummer:;parse arg Text;call notify(1,Text);call remlib "LWModelerARexx.port";exit 0